home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / frmbattl.frm < prev    next >
Text File  |  1999-10-18  |  34KB  |  1,247 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
  4. Begin VB.Form FrmBattle 
  5.    BackColor       =   &H00000000&
  6.    BorderStyle     =   4  'Fixed ToolWindow
  7.    Caption         =   "The RPG Battle Simulation Game      B.S.G"
  8.    ClientHeight    =   5775
  9.    ClientLeft      =   1815
  10.    ClientTop       =   1785
  11.    ClientWidth     =   6675
  12.    Icon            =   "FrmBattle.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    PaletteMode     =   1  'UseZOrder
  17.    ScaleHeight     =   5775
  18.    ScaleWidth      =   6675
  19.    ShowInTaskbar   =   0   'False
  20.    Begin VB.Timer Timer2 
  21.       Left            =   480
  22.       Top             =   1920
  23.    End
  24.    Begin VB.Timer Timer10 
  25.       Enabled         =   0   'False
  26.       Interval        =   25
  27.       Left            =   4080
  28.       Top             =   4560
  29.    End
  30.    Begin VB.Timer Timer9 
  31.       Enabled         =   0   'False
  32.       Interval        =   25
  33.       Left            =   3720
  34.       Top             =   4560
  35.    End
  36.    Begin VB.OptionButton Option3 
  37.       BackColor       =   &H00000057&
  38.       Caption         =   "Speedup"
  39.       ForeColor       =   &H00FFFFFF&
  40.       Height          =   255
  41.       Left            =   120
  42.       TabIndex        =   32
  43.       Top             =   4080
  44.       Width           =   975
  45.    End
  46.    Begin VB.OptionButton Option2 
  47.       BackColor       =   &H00000057&
  48.       Caption         =   "Ether"
  49.       ForeColor       =   &H00FFFFFF&
  50.       Height          =   255
  51.       Left            =   120
  52.       TabIndex        =   31
  53.       Top             =   3720
  54.       Width           =   735
  55.    End
  56.    Begin VB.OptionButton Option1 
  57.       BackColor       =   &H00000057&
  58.       Caption         =   "Tonic"
  59.       ForeColor       =   &H00FFFFFF&
  60.       Height          =   255
  61.       Left            =   120
  62.       TabIndex        =   30
  63.       Top             =   3360
  64.       Value           =   -1  'True
  65.       Width           =   735
  66.    End
  67.    Begin VB.Timer Timer8 
  68.       Enabled         =   0   'False
  69.       Interval        =   25
  70.       Left            =   3360
  71.       Top             =   4560
  72.    End
  73.    Begin VB.Timer Timer7 
  74.       Enabled         =   0   'False
  75.       Interval        =   2000
  76.       Left            =   3120
  77.       Top             =   480
  78.    End
  79.    Begin VB.Timer Timer6 
  80.       Interval        =   7500
  81.       Left            =   2760
  82.       Top             =   480
  83.    End
  84.    Begin VB.Timer Timer5 
  85.       Interval        =   1
  86.       Left            =   6240
  87.       Top             =   480
  88.    End
  89.    Begin VB.Timer Timer4 
  90.       Enabled         =   0   'False
  91.       Interval        =   25
  92.       Left            =   2280
  93.       Top             =   4560
  94.    End
  95.    Begin VB.Timer Timer3 
  96.       Enabled         =   0   'False
  97.       Interval        =   25
  98.       Left            =   1920
  99.       Top             =   4560
  100.    End
  101.    Begin VB.TextBox TxtName 
  102.       Alignment       =   2  'Center
  103.       BackColor       =   &H00000080&
  104.       ForeColor       =   &H00000000&
  105.       Height          =   285
  106.       Left            =   5550
  107.       TabIndex        =   8
  108.       Text            =   "Cid"
  109.       Top             =   5355
  110.       Width           =   875
  111.    End
  112.    Begin VB.Timer Timer1 
  113.       Interval        =   50
  114.       Left            =   6120
  115.       Top             =   4560
  116.    End
  117.    Begin ComctlLib.ProgressBar SpeedBar 
  118.       Height          =   135
  119.       Left            =   1920
  120.       TabIndex        =   7
  121.       Top             =   5600
  122.       Width           =   3255
  123.       _ExtentX        =   5741
  124.       _ExtentY        =   238
  125.       _Version        =   327682
  126.       Appearance      =   1
  127.    End
  128.    Begin MCI.MMControl MMControl1 
  129.       Height          =   495
  130.       Left            =   3720
  131.       TabIndex        =   21
  132.       Top             =   960
  133.       Visible         =   0   'False
  134.       Width           =   3540
  135.       _ExtentX        =   6244
  136.       _ExtentY        =   873
  137.       _Version        =   393216
  138.       PlayEnabled     =   -1  'True
  139.       DeviceType      =   ""
  140.       FileName        =   "C:\Fr0stbyte\Media\Midi\rpg\Battle Theme.mid"
  141.    End
  142.    Begin VB.Image Image8 
  143.       Height          =   735
  144.       Left            =   5280
  145.       Picture         =   "FrmBattle.frx":030A
  146.       Top             =   5040
  147.       Width           =   1455
  148.    End
  149.    Begin VB.Label Label11 
  150.       BackColor       =   &H00C00000&
  151.       BackStyle       =   0  'Transparent
  152.       Caption         =   "x"
  153.       ForeColor       =   &H00FFFFFF&
  154.       Height          =   255
  155.       Left            =   1200
  156.       TabIndex        =   29
  157.       Top             =   3720
  158.       Width           =   255
  159.    End
  160.    Begin VB.Label Label4 
  161.       BackColor       =   &H00C00000&
  162.       BackStyle       =   0  'Transparent
  163.       Caption         =   "x"
  164.       ForeColor       =   &H00FFFFFF&
  165.       Height          =   255
  166.       Left            =   1200
  167.       TabIndex        =   28
  168.       Top             =   3360
  169.       Width           =   255
  170.    End
  171.    Begin VB.Label Label2 
  172.       BackColor       =   &H00C00000&
  173.       BackStyle       =   0  'Transparent
  174.       Caption         =   "x"
  175.       ForeColor       =   &H00FFFFFF&
  176.       Height          =   255
  177.       Left            =   1200
  178.       TabIndex        =   27
  179.       Top             =   4080
  180.       Width           =   255
  181.    End
  182.    Begin VB.Label Lbl3 
  183.       AutoSize        =   -1  'True
  184.       BackStyle       =   0  'Transparent
  185.       BeginProperty Font 
  186.          Name            =   "MS Sans Serif"
  187.          Size            =   18
  188.          Charset         =   0
  189.          Weight          =   700
  190.          Underline       =   0   'False
  191.          Italic          =   0   'False
  192.          Strikethrough   =   0   'False
  193.       EndProperty
  194.       ForeColor       =   &H00FFFFFF&
  195.       Height          =   435
  196.       Left            =   1920
  197.       TabIndex        =   26
  198.       Top             =   4560
  199.       Width           =   120
  200.    End
  201.    Begin VB.Label Item3 
  202.       BackStyle       =   0  'Transparent
  203.       Caption         =   "1"
  204.       ForeColor       =   &H00FFFFFF&
  205.       Height          =   255
  206.       Left            =   1440
  207.       TabIndex        =   25
  208.       Top             =   4080
  209.       Width           =   255
  210.    End
  211.    Begin VB.Label Item1 
  212.       BackStyle       =   0  'Transparent
  213.       Caption         =   "5"
  214.       ForeColor       =   &H00FFFFFF&
  215.       Height          =   255
  216.       Left            =   1440
  217.       TabIndex        =   24
  218.       Top             =   3360
  219.       Width           =   255
  220.    End
  221.    Begin VB.Label Item2 
  222.       BackStyle       =   0  'Transparent
  223.       Caption         =   "1"
  224.       ForeColor       =   &H00FFFFFF&
  225.       Height          =   255
  226.       Left            =   1440
  227.       TabIndex        =   23
  228.       Top             =   3720
  229.       Width           =   255
  230.    End
  231.    Begin VB.Label Label1 
  232.       Alignment       =   2  'Center
  233.       BackStyle       =   0  'Transparent
  234.       Caption         =   "Items"
  235.       ForeColor       =   &H00FFFFFF&
  236.       Height          =   255
  237.       Left            =   240
  238.       TabIndex        =   22
  239.       Top             =   3120
  240.       Width           =   1215
  241.    End
  242.    Begin VB.Label Lbl2 
  243.       AutoSize        =   -1  'True
  244.       BackStyle       =   0  'Transparent
  245.       BeginProperty Font 
  246.          Name            =   "MS Sans Serif"
  247.          Size            =   18
  248.          Charset         =   0
  249.          Weight          =   700
  250.          Underline       =   0   'False
  251.          Italic          =   0   'False
  252.          Strikethrough   =   0   'False
  253.       EndProperty
  254.       ForeColor       =   &H00FFFFFF&
  255.       Height          =   435
  256.       Left            =   5040
  257.       TabIndex        =   20
  258.       Top             =   1560
  259.       Width           =   120
  260.    End
  261.    Begin VB.Label Lbl1 
  262.       Alignment       =   2  'Center
  263.       BackStyle       =   0  'Transparent
  264.       Capti